home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 8.st / COLRBOOK.ARC / COLRBOOK.LST next >
Encoding:
File List  |  1988-12-06  |  32.9 KB  |  1,487 lines
  1. ' *********************************************
  2. ' ST Coloring Book
  3. '
  4. ' By Richard Farrell
  5. '
  6. ' Copyright 1988 Antic Publishing Inc.
  7. ' *********************************************
  8. ' Global A$=Branch command
  9. ' Global Z$=Last routine before entering branch loop
  10. ' Global Z2$=Last drawing routine, Used for Undo
  11. Cls
  12. Hidem
  13. Dim Palette(15),Sa%(15),Oa%(15)
  14. True=-1
  15. False=0
  16. Pcture%=1
  17. Z2$="P"
  18. Dd%=5
  19. Default$="\*.*"
  20. @Check_rez
  21. @Get_drive
  22. Bootdrive$=Currentdrive$
  23. @Original_path
  24. @Set_rez
  25. @Title
  26. P%=0
  27. Repeat
  28.   Setcolor P%,0,0,0
  29.   Inc P%
  30. Until P%=16
  31. @Set_colors
  32. Get 0,20,319,199,Screen1$
  33. Get 0,20,319,199,Screen2$
  34. Get 0,20,319,199,Bottom$
  35. On Error Gosub Trap_error
  36. Color_point%=2
  37. Deffill 2,2,8
  38. @Auto_load
  39. If Answer%=1     !if load unsuccessfull
  40.   Pcture%=0
  41.   A$="M"
  42. Else
  43.   @Set_color_point
  44.   A$="P"
  45. Endif
  46. Trap_1:
  47. ' -------------------------------------------------
  48. Do                       !Main Branching Loop
  49.   Void Fre(0)            !Garbage Collection
  50.   If Asc(A$)=32
  51.     @Main_menu
  52.   Else
  53.     If A$="Page F"
  54.       Alert 1,"|PAGING PICTURE WILL ABANDON | YOUR WORK ON THIS SCREEN.",1,"OK|CANCEL",Ab%
  55.       If Ab%=1
  56.         Inc Pcture%
  57.         @Auto_load
  58.         If Answer%=1
  59.           Dec Pcture%
  60.           A$=Z$
  61.         Else
  62.           A$="P"
  63.           @Set_color_point
  64.         Endif
  65.       Else
  66.         A$=Z$
  67.       Endif
  68.     Else
  69.       If A$="Page B"
  70.         Alert 1,"|PAGING PICTURE WILL ABANDON | YOUR WORK ON THIS SCREEN.",1,"OK|CANCEL",Ab%
  71.         If Ab%=1
  72.           Dec Pcture%
  73.           If Pcture%=0
  74.             @Find_screen_number
  75.           Endif
  76.           @Auto_load
  77.           If Answer%=1  !unsuccessful load
  78.             Inc Pcture%
  79.             A$=Z$
  80.           Else
  81.             A$="P"
  82.             @Set_color_point
  83.           Endif
  84.         Else
  85.           A$=Z$
  86.         Endif
  87.       Else
  88.         If A$="Undo"
  89.           @Change_screen
  90.           A$=Z$
  91.           If A$="M"
  92.             A$=Z2$
  93.           Endif
  94.         Else
  95.           If A$="Clear"
  96.             @Clear_screen
  97.             A$=Z$
  98.           Else
  99.             If Upper$(A$)="M"
  100.               @Main_menu
  101.             Else
  102.               If Upper$(A$)="C"
  103.                 @Reset_colors
  104.                 A$=Z$
  105.               Else
  106.                 If Upper$(A$)="P"
  107.                   @Paint
  108.                 Else
  109.                   If Upper$(A$)="E"
  110.                     @Erase
  111.                   Else
  112.                     If Upper$(A$)="D"
  113.                       @Draw_1
  114.                     Else
  115.                       If Upper$(A$)="R"
  116.                         @Draw_2
  117.                       Else
  118.                         If Upper$(A$)="S"
  119.                           @Save_screen
  120.                           A$=Z$
  121.                         Else
  122.                           If Upper$(A$)="L"
  123.                             Put 0,0,Top_black$
  124.                             Print At(1,1);"LOAD PICTURE"
  125.                             @Fileselect(Default$,"",0,"")
  126.                             @Load_screen
  127.                             @Set_color_point
  128.                             A$=Z$
  129.                           Else
  130.                             If Asc(A$)>48 And Asc(A$)<58      !Key pad
  131.                               @Adjust_color(A$)
  132.                             Endif
  133.                           Endif
  134.                         Endif
  135.                       Endif
  136.                     Endif
  137.                   Endif
  138.                 Endif
  139.               Endif
  140.             Endif
  141.           Endif
  142.         Endif
  143.       Endif
  144.     Endif
  145.   Endif
  146.   Repeat                  !Clears multiple key press
  147.   Until Inkey$=""
  148. Loop
  149. ' ------------------------------------------
  150. Procedure Adjust_color(A$)
  151.   Local R%,G%,B%,C%,D,X%
  152.   If Color_point%>1
  153.     Restore Color_place
  154.     Repeat
  155.       Read X%,Color_place%
  156.     Until Color_point%=X%
  157.     X%=Sa%(Color_place%)
  158.     R%=Int(X%/256)
  159.     Sub X%,R%*256
  160.     G%=Int(X%/16)
  161.     Sub X%,G%*16
  162.     B%=X%
  163.     C%=Asc(A$)-48
  164.     If C%=1
  165.       Dec B%
  166.     Else
  167.       If C%=3
  168.         Inc B%
  169.       Else
  170.         If C%=4
  171.           Dec G%
  172.         Else
  173.           If C%=6
  174.             Inc G%
  175.           Else
  176.             If C%=7
  177.               Dec R%
  178.             Else
  179.               If C%=9
  180.                 Inc R%
  181.               Endif
  182.             Endif
  183.           Endif
  184.         Endif
  185.       Endif
  186.       If R%>7
  187.         R%=7
  188.       Endif
  189.     Endif
  190.     If G%>7
  191.       G%=7
  192.     Endif
  193.     If B%>7
  194.       B%=7
  195.     Endif
  196.     If R%<0
  197.       R%=0
  198.     Endif
  199.     If G%<0
  200.       G%=0
  201.     Endif
  202.     If B%<0
  203.       B%=0
  204.     Endif
  205.     Setcolor Color_place%,R%,G%,B%
  206.     X%=R%*256+G%*16+B%
  207.     Sa%(Color_place%)=X%
  208.     @Color_numbers
  209.   Endif
  210. Return
  211. ' ----------------------------------------------
  212. Procedure Adjust_color_choice(T%)
  213.   If T%=43 Or T%=61
  214.     Inc Color_point%
  215.     If Color_point%>15
  216.       Color_point%=1
  217.     Endif
  218.   Else
  219.     Dec Color_point%
  220.     If Color_point%<1
  221.       Color_point%=15
  222.     Endif
  223.   Endif
  224.   Deffill Color_point%,2,8
  225.   @Set_color_marker
  226.   Pause 8
  227.   Repeat
  228.   Until Inkey$=""
  229.   A$=""
  230. Return
  231. ' -----------------------------------------------
  232. Procedure Auto_load
  233.   Answer%=1
  234.   Filename$=Bootdrive$+":"+Oldpath$+"SCREEN"+Str$(Pcture%)+".NEO"
  235.   If Exist(Filename$)
  236.     @Load_screen
  237.     Answer%=0                  !load successfull
  238.   Else
  239.     Filename$=Bootdrive$+":"+Oldpath$+"SCREEN"+Str$(Pcture%)+".PI1"
  240.     If Exist(Filename$)
  241.       @Load_screen
  242.       Answer%=0                 !load successfull
  243.     Else
  244.       Filename$=Bootdrive$+":"+Oldpath$+"SCREEN"+Str$(Pcture%)+".PC1"
  245.       If Exist(Filename$)
  246.         @Load_screen
  247.         Answer%=0                 !load successfull
  248.       Else
  249.         If Pcture%<>1
  250.           Pcture%=1
  251.           @Auto_load
  252.         Endif
  253.       Endif
  254.     Endif
  255.   Endif
  256. Return
  257. ' -----------------------------------------------
  258. Procedure Change_screen
  259.   Swap Screen1$,Screen2$
  260.   Put 0,20,Screen1$
  261. Return
  262. ' ---------------------------------------------------
  263. Procedure Check_rez
  264.   Local X%
  265.   X%=Xbios(4)
  266.   If X%<>0
  267.     Alert 1,"|KID'S COLORING BOOK|   ONLY WORKS IN|  LOW RESOLUTION!",1,"OK",X%
  268.     End
  269.   Endif
  270. Return
  271. ' ---------------------------------------------
  272. Procedure Clear_screen
  273.   Local X%
  274.   Alert 2,"| CLEARING THE SCREEN WILL|ERASE YOUR CURRENT DRAWING| DO YOU WISH TO CLEAR IT?",1,"YES|NO",X%
  275.   If X%=1
  276.     Screen1$=Bottom$
  277.   Endif
  278. Return
  279. ' --------------------------------------------------------
  280. Procedure Color_numbers
  281.   Local X%,Y%,R%,G%,B%
  282.   Restore Color_place
  283.   Repeat
  284.     Read X%,Color_place%
  285.   Until Color_point%=X%
  286.   X%=Val(Str$(Sa%(Color_place%)))
  287.   R%=Int(X%/256)
  288.   Sub X%,R%*256
  289.   G%=Int(X%/16)
  290.   Sub X%,G%*16
  291.   B%=X%
  292.   If R%>7
  293.     R%=7
  294.   Endif
  295.   If G%>7
  296.     G%=7
  297.   Endif
  298.   If B%>7
  299.     B%=7
  300.   Endif
  301.   If R%<0
  302.     R%=0
  303.   Endif
  304.   If G%<0
  305.     G%=0
  306.   Endif
  307.   If B%<0
  308.     B%=0
  309.   Endif
  310.   Deftext 1,0,0,4
  311.   Text 271,4,"R"+Str$(R%)
  312.   Text 271,10,"G"+Str$(G%)
  313.   Text 271,16,"B"+Str$(B%)
  314. Return
  315. ' -----------------------------------------------
  316. Procedure Default_path
  317.   Local Default_drive$
  318.   Default_drive$=Chr$(Gemdos(25)+65)
  319.   Drive$=Default_drive$+":"+Dir$(Gemdos(25)+1)+"\"
  320. Return
  321. ' ------------------------------------------------
  322. Procedure Display_color_text(C%)
  323.   Local A$
  324.   If C%=0
  325.     A$="DRAW "
  326.   Else
  327.     A$="ERASE"
  328.   Endif
  329.   Print At(1,2);A$
  330. Return
  331. ' --------------------------------------------------
  332. Procedure Do_fill(X%,Y%)
  333.   If Color_point%<>0
  334.     Fill X%,Y%
  335.     Swap Screen1$,Screen2$
  336.     Get 0,20,319,199,Screen1$
  337.   Endif
  338. Return
  339. ' -------------------------------------------------
  340. Procedure Draw_1
  341.   Local A%,B%
  342.   A%=0
  343.   Z$="D"
  344.   Z2$=Z$
  345.   B%=7
  346.   Restore Pencil_data
  347.   @Read_mouse_data
  348.   Color 0
  349.   Put 0,0,Top_black$
  350.   Put 0,20,Screen1$
  351.   @Recolor
  352.   Color 1
  353.   Print At(1,2);"DRAW FREEHAND"
  354.   Box 290,1,318,18
  355.   Box 295,6,313,13
  356.   Line 290,1,295,6
  357.   Line 318,1,313,6
  358.   Line 290,18,295,13
  359.   Line 318,18,313,13
  360.   Color 0
  361.   Do
  362.     Mouse X%,Y%,Z%
  363.     While Z%=0 And X%>=289 And Y%<18
  364.       If B%<>3
  365.         Restore Pointfinger_data
  366.         @Read_mouse_data
  367.         B%=3
  368.       Endif
  369.       Mouse X%,Y%,Z%
  370.       A$=Inkey$
  371.       If Z%=1
  372.         A$="M"
  373.       Endif
  374.       Exit If A$<>""
  375.     Wend
  376.     If B%<>7
  377.       B%=7
  378.       Restore Pencil_data
  379.       @Read_mouse_data
  380.     Endif
  381.     Exit If A$="M"
  382.     While Z%=1 And Y%>=20
  383.       Mouse X%,Y%,Z%
  384.       Mouse X1%,Y1%,Z%
  385.       While Z%=1 And Y1%>=20
  386.         Mouse X1%,Y1%,Z%
  387.         Line X%,Y%,X1%,Y1%
  388.         X%=X1%
  389.         Y%=Y1%
  390.         Pause 1
  391.         A%=1
  392.       Wend
  393.     Wend
  394.     If A%=1
  395.       A%=0
  396.       Swap Screen1$,Screen2$
  397.       Get 0,20,319,199,Screen1$
  398.     Endif
  399.     If Len(A$)=2
  400.       @Special_key
  401.     Endif
  402.     B$=Upper$(A$)
  403.     Exit If ((Asc(B$)=32)+(B$="M")+(B$="E")+(B$="R")+(B$="P"))=True
  404.     Exit If ((B$="L")+(B$="S")+(B$="C"))=True
  405.     A$=Inkey$
  406.   Loop
  407. Return
  408. ' --------------------------------------
  409. Procedure Draw_2
  410.   Local A%,B%
  411.   A%=0
  412.   B%=5
  413.   Z$="R"
  414.   Z2$=Z$
  415.   Restore Opencross_data
  416.   @Read_mouse_data
  417.   Put 0,0,Top_black$
  418.   Put 0,20,Screen1$
  419.   @Recolor
  420.   Color 1
  421.   Print At(1,2);"DRAW RUBBERBAND LINES"
  422.   Box 290,1,318,18
  423.   Box 295,6,313,13
  424.   Line 290,1,295,6
  425.   Line 318,1,313,6
  426.   Line 290,18,295,13
  427.   Line 318,18,313,13
  428.   Color 0
  429.   Local P%
  430.   A$=""
  431.   B$=""
  432.   Place%=0
  433.   Do
  434.     Mouse X%,Y%,Z%
  435.     While Z%=0 And X%>=289 And Y%<18
  436.       If B%<>3
  437.         B%=3
  438.         Restore Pointfinger_data
  439.         @Read_mouse_data
  440.       Endif
  441.       Mouse X%,Y%,Z%
  442.       A$=Inkey$
  443.       If Len(A$)=2
  444.         @Special_key
  445.       Endif
  446.       If Z%=1
  447.         A$="M"
  448.         B$="M"
  449.       Endif
  450.       Exit If A$<>""
  451.     Wend
  452.     If B%<>5
  453.       B%=5
  454.       Restore Opencross_data
  455.       @Read_mouse_data
  456.     Endif
  457.     Exit If ((Asc(B$)=32)+(B$="M")+(B$="E")+(B$="D")+(B$="P"))=True
  458.     Exit If ((B$="L")+(B$="S")+(B$="C"))=True
  459.     A$=Inkey$
  460.     B$=Upper$(A$)
  461.     If Len(A$)=2
  462.       @Special_key
  463.     Endif
  464.     If Z%=1
  465.       @Draw_2_a(X%,Y%)
  466.     Endif
  467.   Loop
  468.   Graphmode 1
  469. Return
  470. ' ----------------------------------
  471. Procedure Draw_2_a(X%,Y%)
  472.   Repeat
  473.   Until Mousek=0
  474.   Z%=0
  475.   While Z%=0 And Y%>=20
  476.     Graphmode 3
  477.     Mouse X1%,Y1%,Z%
  478.     If Y1%>=20
  479.       Line X%,Y%,X1%,Y1%
  480.       Line X%,Y%,X1%,Y1%
  481.     Endif
  482.     A$=Inkey$
  483.     Mouse A%,D%,C%
  484.     While A%>=290 And D%<20
  485.       If B%<>3
  486.         B%=3
  487.         Restore Pointfinger_data
  488.         @Read_mouse_data
  489.       Endif
  490.       Mouse A%,D%,C%
  491.       A$=Inkey$
  492.       If C%=1
  493.         A$="M"
  494.       Endif
  495.       Exit If A$<>""
  496.     Wend
  497.     If B%<>5
  498.       B%=5
  499.       Restore Opencross_data
  500.       @Read_mouse_data
  501.     Endif
  502.     B$=Upper$(A$)
  503.     Exit If ((Asc(B$)=32)+(B$="M")+(B$="E")+(B$="D")+(B$="P"))=True
  504.     Exit If ((B$="L")+(B$="S")+(B$="C"))=True
  505.     Pause 1
  506.   Wend
  507.   If Z%=1 And Y1%>=20
  508.     @Draw_2_b(X%,Y%,X1%,Y1%)
  509.   Endif
  510. Return
  511. ' -----------------------------------------
  512. Procedure Draw_2_b(X%,Y%,X1%,Y1%)
  513.   Graphmode 1
  514.   Swap Screen1$,Screen2$
  515.   Line X%,Y%,X1%,Y1%
  516.   Repeat
  517.   Until Mousek=0
  518.   Get 0,20,319,199,Screen1$
  519.   @Draw_2_a(X1%,Y1%)
  520. Return
  521. ' -------------------------------
  522. Procedure Early_exit
  523.   @Get_colors
  524.   Alert 1,"| ST COLORING BOOK|IS MISSING SCR FILES",1,"OK",X
  525.   P%=0
  526.   Repeat
  527.     Setcolor P%,Palette(P%)
  528.     Inc P%
  529.   Until P%=16
  530.   Deftext 1,0,0,13
  531.   Chdrive Old_drive%          !Reset Drive path
  532.   Chdir Oldpath$
  533.   End
  534. Return
  535. ' -------------------------------------
  536. Procedure Erase
  537.   @Recolor
  538.   Local A%,B%,C%
  539.   A%=0
  540.   B%=0
  541.   C%=0
  542.   Z$="E"
  543.   Z2$=Z$
  544.   Put 0,0,Top_black$
  545.   Put 0,20,Screen1$
  546.   Color 1
  547.   Print At(1,2);"ERASE   (USE 1-9 TO CHANGE SIZE)"
  548.   Box 290,1,318,18
  549.   Box 295,6,313,13
  550.   Line 290,1,295,6
  551.   Line 318,1,313,6
  552.   Line 290,18,295,13
  553.   Line 318,18,313,13
  554.   Color 0
  555.   Restore Pointfinger_data
  556.   @Read_mouse_data
  557.   Hidem
  558.   Y_dd%=Dd%
  559.   Old_y_dd%=Dd%
  560.   Deffill 1,2,8
  561.   Do
  562.     Mouse X%,Y%,Z%
  563.     While Z%=0 And X%>=289 And Y%<18
  564.       Mouse X%,Y%,Z%
  565.       A$=Inkey$
  566.       Showm
  567.       If Z%=1
  568.         A$="M"
  569.       Endif
  570.       Exit If A$<>""
  571.     Wend
  572.     Hidem
  573.     Exit If A$="M"
  574.     Graphmode 3
  575.     Box X%-Dd%,Y%-Y_dd%,X%+Dd%,Y%+Dd%
  576.     Box X%-Dd%,Y%-Y_dd%,X%+Dd%,Y%+Dd%
  577.     While Z%=1 And Y%>=20-Dd%
  578.       Mouse X%,Y%,Z%
  579.       Graphmode 3
  580.       Box X%-Dd%,Y%-Y_dd%,X%+Dd%,Y%+Dd%
  581.       Box X%-Dd%,Y%-Y_dd%,X%+Dd%,Y%+Dd%
  582.       Zz%=Y%-Y_dd%
  583.       If Y%-Y_dd%<=20
  584.         Y_dd%=(Y%-20)
  585.         Zz%=20
  586.       Endif
  587.       Za%=Y%+Dd%
  588.       If Za%<20
  589.         Za%=20
  590.       Endif
  591.       Graphmode 1
  592.       Pbox X%-Dd%,Zz%,X%+Dd%,Za%
  593.       Pause 1
  594.       Y_dd%=Old_y_dd%
  595.       C%=1
  596.     Wend
  597.     If C%=1 And Z%=0
  598.       Pause 1
  599.       C%=0
  600.       Swap Screen1$,Screen2$
  601.       Get 0,20,319,199,Screen1$
  602.     Endif
  603.     If Len(A$)=2
  604.       Graphmode 1
  605.       @Special_key
  606.     Endif
  607.     B$=Upper$(A$)
  608.     Exit If ((Asc(B$)=32)+(B$="M")+(B$="D")+(B$="R")+(B$="P"))=True
  609.     Exit If ((B$="L")+(B$="S")+(B$="C"))=True
  610.     B%=Asc(A$)
  611.     A%=Abs((B%=49)*1+(B%=50)*2+(B%=51)*3+(B%=52)*4+(B%=53)*5+(B%=54)*6+(B%=55)*8+(B%=56)*15+(B%=57)*30)
  612.     If A%<>0
  613.       Dd%=A%
  614.       Y_dd%=Dd%
  615.       Old_y_dd%=Dd%
  616.     Endif
  617.     A$=Inkey$
  618.   Loop
  619.   Showm
  620.   Graphmode 1
  621.   Deffill Color_point%,2,8
  622. Return
  623. ' -----------------------------------
  624. Procedure Find_screen_number
  625.   X%=0
  626.   Pcture%=99
  627.   Repeat
  628.     Filename$=Bootdrive$+":"+Oldpath$+"SCREEN"+Str$(Pcture%)+".NEO"
  629.     If Exist(Filename$)
  630.       X%=1
  631.     Else
  632.       Filename$=Bootdrive$+":"+Oldpath$+"SCREEN"+Str$(Pcture%)+".PI1"
  633.       If Exist(Filename$)
  634.         X%=1
  635.       Endif
  636.     Endif
  637.     Exit If X%=1
  638.     Dec Pcture%
  639.   Until Pcture%=1
  640. Return
  641. ' -----------------------------------------------------
  642. Procedure Fileselect(A$,File$,Ex%,Extension$) !ex%=1 to add extension$
  643.   Setcolor 15,0,0,0   !black
  644.   Setcolor 0,7,7,7  !white
  645.   Local X%
  646.   Clr Filename$,Filename_2$,New_drive$,New_drive%,Path$,B$
  647.   @Get_drive
  648.   If Left$(A$,1)<>"\"
  649.     A$="\"+A$
  650.   Endif
  651.   Repeat
  652.     Fileselect Currentdrive$+":"+Dir$(0)+A$,File$,Filename_2$
  653.     Exit If Filename_2$=""
  654.   Until Len(Filename_2$)<>1
  655.   If Filename_2$<>""
  656.     Currentpath$=Dir$(0)
  657.     If Currentpath$=""
  658.       Currentpath$="\"
  659.     Endif
  660.     X%=Len(Filename_2$)
  661.     Currentdir$=Dir$(0)
  662.     For Y%=X% To 1 Step -1
  663.       If Mid$(Filename_2$,Y%,1)="\"
  664.         B$=Right$(Filename_2$,(X%-Y%))
  665.         Path$=Left$(Filename_2$,(Len(Filename_2$)-Len(B$)))
  666.         If Mid$(Path$,2,1)=":"
  667.           New_drive$=Left$(Path$,1)
  668.           New_drive%=Asc(New_drive$)-Asc("A")+1
  669.         Endif
  670.         Y%=1
  671.       Endif
  672.     Next Y%
  673.     Filename$=Path$+B$
  674.     @Get_drive
  675.     If New_drive%<>0
  676.       Chdrive New_drive%
  677.     Endif
  678.     Chdir Path$
  679.   Endif
  680.   Full_path$=Filename_2$
  681.   If Ex%=1 And Instr(B$,".")=0
  682.     B$=B$+"."+Extension$
  683.     Filename$=Filename$+"."+Extension$
  684.   Endif
  685.   Setcolor 0,0,0,0   !black
  686.   Setcolor 15,7,7,7  !white
  687. Return
  688. ' -----------------------------------------------------
  689. Procedure Get_drive
  690.   Currentdrive%=Gemdos(&H19)
  691.   Currentdrive$=Chr$(Asc("A")+Currentdrive%)
  692.   Boot_drive%=Currentdrive%+1
  693. Return
  694. ' ---------------------------------------------------------
  695. Procedure Get_colors
  696.   Local P%
  697.   Setcolor 0,0,0,0   !black
  698.   Setcolor 15,7,7,7  !white
  699.   Setcolor 1,0,0,4   !blue dark
  700.   Setcolor 2,0,0,7   !blue
  701.   Setcolor 4,0,5,7   !turquiose
  702.   Setcolor 6,4,1,7   !purple blue
  703.   Setcolor 3,7,0,7   !purple red
  704.   Setcolor 5,5,0,0   !red dark
  705.   Setcolor 7,7,0,0   !red
  706.   Setcolor 8,7,4,4   !flesh
  707.   Setcolor 9,7,4,0   !orange
  708.   Setcolor 10,7,7,0  !yellow
  709.   Setcolor 12,7,6,4  !sand
  710.   Setcolor 14,0,7,0  !green
  711.   Setcolor 11,0,4,0  !green dark
  712.   Setcolor 13,0,5,4  !green blue
  713. Return
  714. ' ------------------------------------------
  715. Procedure Help
  716.   Local A$,P%
  717.   Hidem
  718.   Sget Screen$
  719.   @Get_colors
  720.   Sput Help$
  721.   Repeat
  722.     Exit If Inkey$<>""
  723.   Until Mousek<>0
  724.   Repeat
  725.   Until Mousek=0
  726.   Sput Screen$
  727.   P%=0
  728.   Repeat
  729.     Setcolor P%,Sa%(P%)
  730.     Inc P%
  731.   Until P%=16
  732.   Showm
  733. Return
  734. ' -------------------------------------------
  735. Procedure Load_screen
  736.   Local P%,X%,D$
  737.   If Filename$<>""
  738.     Cls
  739.     R$=Right$(Filename$,3)
  740.     If R$="PI1"                           !  DEGAS picture selected
  741.       Bload Filename$,Xbios(2)-34
  742.       @Load_info_for_degas
  743.     Else
  744.       If R$="PC1"
  745.         @Load_degas_compressed
  746.         @Load_info_for_degas
  747.       Else
  748.         If R$="NEO"   ! NEO picture selected
  749.           Bload Filename$,Xbios(2)-128
  750.           A%=Xbios(2)-124
  751.           P%=0
  752.           Repeat
  753.             Oa%(P%)=Sa%(P%)
  754.             Sa%(P%)=Dpeek(A%)
  755.             Setcolor P%,Sa%(P%)
  756.             Add A%,2
  757.             Inc P%
  758.           Until P%=16
  759.           Setcolor 0,0,0,0   !black
  760.           Setcolor 15,7,7,7  !white
  761.           @Set_colors
  762.           Swap Screen1$,Screen2$
  763.           Get 0,20,319,199,Screen1$
  764.           If Z$="M"
  765.             Z$="P"
  766.           Endif
  767.           If Instr(Filename$,"SCREEN")>1
  768.             X%=Instr(Filename$,"SCREEN")+6
  769.             Y%=Len(Filename$)
  770.             D$=Right$(Filename$,Y%-X%+1)
  771.             Pcture%=Val(D$)
  772.           Endif
  773.         Else
  774.           Alert 1,"|PICTURES FILES MUST BE IN|   NEOCHROME OR DEGAS|         FORMAT.",1,"OK",X
  775.         Endif
  776.       Endif
  777.     Endif
  778.   Endif
  779. Return
  780. ' ----------------------------------------------------
  781. Procedure Load_degas_compressed
  782.   Local P%
  783.   ' Thanks to Jim Kent for this routine to read a compressed picture.
  784.   Unpack$=Space$(15*4)
  785.   Unpac=Varptr(Unpack$)
  786.   Restore Unpack
  787.   For I=1 To 15
  788.     Read X
  789.     Lpoke Unpac,X
  790.     Unpac=Unpac+4
  791.   Next I
  792.   Unpac=Varptr(Unpack$)
  793.   Unrave$=Space$(10*4)
  794.   Unrav=Varptr(Unrave$)
  795.   Restore Unravel
  796.   For I=1 To 10
  797.     Read X
  798.     Lpoke Unrav,X
  799.     Unrav=Unrav+4
  800.   Next I
  801.   Unrav=Varptr(Unrave$)
  802.   Temp$=Space$(32760)
  803.   P%=Varptr(Temp$)
  804.   Bload Filename$,P%
  805.   Screen%=Xbios(2)
  806.   Print Screen%
  807.   Temp2$=Space$(40)
  808.   B%=Varptr(Temp2$)
  809.   Picture.res=Dpeek(P%)
  810.   P%=P%+2
  811.   For I%=0 To 15
  812.     Setcolor I%,Dpeek(P%)
  813.     P%=P%+2
  814.   Next I%
  815.   '
  816.   For K%=1 To 200
  817.     Scr%=Screen%
  818.     For C%=1 To 4
  819.       P%=C:Unpac(L:P%,L:B%,40)
  820.       Q%=C:Unrav(L:B%,L:Scr%,40,8)
  821.       Scr%=Scr%+2
  822.     Next C%
  823.     Screen%=Screen%+160
  824.   Next K%
  825.   Unpack:
  826.   Data &h48e740e0,&h206f0014,&h226f0018,&h2449d4ef
  827.   Data &h001c4241,&h12186b0c,&h12d851c9,&hfffcb3ca
  828.   Data &h6df0600e,&h44011018,&h12c051c9,&hfffcb3ca
  829.   Data &h6de02008,&h4cdf0702,&h4e750000
  830.   Unravel:
  831.   Data &h48e740c0,&h206f0010,&h226f0014,&h302f0018
  832.   Data &h322f001a,&he2486004,&h3298d2c1,&h51c8fffa
  833.   Data &h4cdf0302,&h4e750000
  834. Return
  835. ' ------------------------------------------------------
  836. Procedure Load_info_for_degas
  837.   A%=Xbios(2)-32
  838.   P%=0
  839.   Repeat
  840.     Oa%(P%)=Sa%(P%)
  841.     Sa%(P%)=Dpeek(A%)
  842.     Setcolor P%,Sa%(P%)
  843.     Add A%,2
  844.     Inc P%
  845.   Until P%=16
  846.   Setcolor 0,0,0,0   !black
  847.   Setcolor 15,7,7,7  !white
  848.   @Set_colors
  849.   Swap Screen1$,Screen2$
  850.   Get 0,20,319,199,Screen1$
  851.   If Z$="M"
  852.     Z$="P"
  853.   Endif
  854.   If Instr(Filename$,"SCREEN")>1
  855.     X%=Instr(Filename$,"SCREEN")+6
  856.     Y%=Len(Filename$)
  857.     D$=Right$(Filename$,Y%-X%+1)
  858.     Pcture%=Val(D$)
  859.   Endif
  860. Return
  861. ' ------------------------------------------------
  862. Procedure Make_help_screen
  863.   Local A$,P%
  864.   Hidem
  865.   Restore Help_screen_data
  866.   Read A$
  867.   Deffill 2,2,8
  868.   Pbox 0,0,319,199
  869.   Deftext 1,0,0,6
  870.   Color 1
  871.   Print At(16,1);"INFORMATION"
  872.   P%=20
  873.   While A$<>"-1"
  874.     Text 10,P%,A$
  875.     Read A$
  876.     Add P%,9
  877.   Wend
  878.   Sget Help$
  879. Return
  880. ' --------------------------------------
  881. Procedure Main_menu
  882.   Local A%,B%,P%,X%,Y%,Z%,B$
  883.   Z$="M"
  884.   Color 0
  885.   Restore Pointfinger_data
  886.   @Read_mouse_data
  887.   @Get_colors
  888.   Sput Mnu$
  889.   Do
  890.     A$=Inkey$
  891.     If Len(A$)=2
  892.       @Special_key
  893.     Endif
  894.     B$=Upper$(A$)
  895.     Exit If ((B$="D")+(B$="E")+(B$="R")+(B$="P"))=True
  896.     Exit If ((B$="L")+(B$="S"))=True
  897.     Mouse X%,Y%,Z%
  898.     If Z%=1
  899.       Repeat
  900.       Until Mousek=0
  901.       A%=Abs((X%>=31 And X%<=96)*1+(X%>=127 And X%<=192)*2+(X%>=223 And X%<=288)*3)
  902.       B%=Abs((Y%>=36 And Y%<=60)*1+(Y%>=76 And Y%<=100)*2+(Y%>=116 And Y%<=140)*3+(Y%>=156 And Y%<=180)*4)
  903.       If (X%>=126 And X%<=288) And (Y%>=36 And Y%<=60)
  904.         A%=2
  905.       Endif
  906.     Endif
  907.     If A%*B%>0
  908.       If A%=1 And B%=1
  909.         A$="D"
  910.       Else
  911.         If A%=2 And B%=1
  912.           A$="P"
  913.         Else
  914.           If A%=3 And B%=1
  915.             A$="P"
  916.           Else
  917.             If A%=1 And B%=2
  918.               A$="R"
  919.               Z$="P"
  920.             Else
  921.               If A%=2 And B%=2
  922.                 A$="Page B"
  923.                 Z$="M"
  924.               Else
  925.                 If A%=3 And B%=2
  926.                   A$="Page F"
  927.                   Z$="M"
  928.                 Else
  929.                   If A%=1 And B%=3
  930.                     A$="Undo"
  931.                   Else
  932.                     If A%=2 And B%=3
  933.                       A$="L"
  934.                       Z$="M"
  935.                     Else
  936.                       If A%=3 And B%=3
  937.                         A$="S"
  938.                         Z$="M"
  939.                       Else
  940.                         If A%=1 And B%=4
  941.                           A$="E"
  942.                         Else
  943.                           If A%=2 And B%=4
  944.                             A$="Clear"
  945.                             Z$="M"
  946.                           Else
  947.                             If A%=3 And B%=4
  948.                               @Quit
  949.                               Z$="M"
  950.                             Endif
  951.                           Endif
  952.                         Endif
  953.                       Endif
  954.                     Endif
  955.                   Endif
  956.                 Endif
  957.               Endif
  958.             Endif
  959.           Endif
  960.         Endif
  961.       Endif
  962.     Endif
  963.     Exit If A%*B%>0
  964.   Loop
  965.   Repeat
  966.   Until Mousek=0
  967. Return
  968. ' ------------------------------------------------------
  969. Procedure Original_path
  970.   @Get_drive
  971.   Old_drive%=Boot_drive%
  972.   Oldpath$=Dir$(0)
  973.   If Right$(Oldpath$,1)<>"\"
  974.     Oldpath$=Oldpath$+"\"
  975.   Endif
  976. Return
  977. ' ------------------------------------
  978. Procedure Paint
  979.   Local B%,Y%,Z%,T%
  980.   Z$="P"
  981.   Z2$=Z$
  982.   Put 0,0,Top$
  983.   Put 0,20,Screen1$
  984.   @Recolor
  985.   @Set_color_marker
  986.   B%=7
  987.   Restore Paintbrush_data
  988.   @Read_mouse_data
  989.   Do
  990.     Mouse X%,Y%,Z%
  991.     While Z%=0 And X%>=289 And Y%<18
  992.       Mouse X%,Y%,Z%
  993.       If B%<>3
  994.         Restore Pointfinger_data
  995.         @Read_mouse_data
  996.         B%=3
  997.       Endif
  998.       If Z%=1
  999.         A$="M"
  1000.       Endif
  1001.       Exit If A$="M"
  1002.       A$=Upper$(Inkey$)
  1003.       If Len(A$)=2
  1004.         @Special_key
  1005.         @Set_color_marker
  1006.       Endif
  1007.       If Asc(A$)>=49 And Asc(A$)<=57
  1008.         @Adjust_color(A$)
  1009.       Endif
  1010.       T%=Asc(A$)
  1011.       If T%=43 Or T%=61 Or T%=45
  1012.         @Adjust_color_choice(T%)
  1013.       Endif
  1014.       Exit If A$<>""
  1015.     Wend
  1016.     Exit If A$="M"
  1017.     If B%<>7
  1018.       Restore Paintbrush_data
  1019.       @Read_mouse_data
  1020.       B%=7
  1021.     Endif
  1022.     If Z%=1
  1023.       If Point(X%,Y%)<>0
  1024.         If Y%>=20
  1025.           @Do_fill(X%,Y%)
  1026.           Repeat
  1027.           Until Mousek=0
  1028.         Else
  1029.           If Y%>0 And Y%<=11
  1030.             Answer2%=0
  1031.             P%=1
  1032.             Po%=0
  1033.             Repeat
  1034.               If X%>=Po% And X%<=Po%+10 !Check to see if mouse is inside color box
  1035.                 Answer2%=1
  1036.               Endif
  1037.               Add Po%,18
  1038.               Inc P%
  1039.             Until P%=16
  1040.             If Answer2%=1
  1041.               Color_point%=Point(X%,Y%)
  1042.               Deffill Color_point%,2,8
  1043.               @Set_color_marker
  1044.             Endif
  1045.             Repeat
  1046.             Until Mousek=0
  1047.           Endif
  1048.         Endif
  1049.       Else
  1050.         Print Chr$(7);
  1051.         Repeat
  1052.         Until Mousek=0
  1053.       Endif
  1054.     Endif
  1055.     If Len(A$)=2
  1056.       @Special_key
  1057.       @Set_color_marker
  1058.     Endif
  1059.     If Asc(A$)>=49 And Asc(A$)<=57
  1060.       @Adjust_color(A$)
  1061.     Endif
  1062.     T%=Asc(A$)
  1063.     If T%=43 Or T%=61 Or T%=45
  1064.       @Adjust_color_choice(T%)
  1065.     Endif
  1066.     B$=Upper$(A$)
  1067.     Exit If ((Asc(B$)=32)+(B$="M")+(B$="E")+(B$="R")+(B$="D"))=True
  1068.     Exit If ((B$="L")+(B$="S")+(B$="C"))=True
  1069.     A$=Inkey$
  1070.   Loop
  1071. Return
  1072. ' -------------------------------------------------
  1073. Procedure Read_mouse_data
  1074.   Local I%,A%,Mm$
  1075.   Mm$=""
  1076.   I%=1
  1077.   Repeat
  1078.     Read A%
  1079.     Mm$=Mm$+Mki$(A%)
  1080.     Inc I%
  1081.   Until I%=38
  1082.   Defmouse Mm$
  1083. Return
  1084. ' -----------------------------------------------------
  1085. Procedure Recolor
  1086.   Local P%
  1087.   P%=0
  1088.   Repeat
  1089.     Setcolor P%,Sa%(P%)
  1090.     Inc P%
  1091.   Until P%=16
  1092. Return
  1093. ' ------------------------------------------------------]
  1094. Procedure Reset_colors
  1095.   Local P%
  1096.   P%=0
  1097.   Repeat
  1098.     Swap Sa%(P%),Oa%(P%)
  1099.     Setcolor P%,Sa%(P%)
  1100.     Inc P%
  1101.   Until P%=16
  1102. Return
  1103. ' ------------------------------------------------------
  1104. Procedure Save_screen
  1105.   Local P%
  1106.   Put 0,0,Top_black$
  1107.   Print At(1,1);"SAVE PICTURE"
  1108.   @Fileselect("\*.*","",0,"")
  1109.   If Len(Filename$)>=2
  1110.     @Recolor
  1111.     Put 0,0,Top$
  1112.     Put 0,20,Screen1$
  1113.     Hidem
  1114.     R$=Right$(Filename$,3)
  1115.     If R$="PI1"                           !  DEGAS picture selected
  1116.       A%=Xbios(2)-32
  1117.       P%=0
  1118.       Repeat
  1119.         Dpoke A%,Sa%(P%)
  1120.         Add A%,2
  1121.         Inc P%
  1122.       Until P%=16
  1123.       Bsave Filename$,Xbios(2)-34,32034
  1124.     Else                                  !  NEO picture selected
  1125.       If R$="NEO"
  1126.         A%=Xbios(2)-124
  1127.         P%=0
  1128.         Repeat
  1129.           Dpoke A%,Sa%(P%)
  1130.           Add A%,2
  1131.           Inc P%
  1132.         Until P%=16
  1133.         Bsave Filename$,Xbios(2)-128,32128
  1134.       Else
  1135.         If Len(Filename$)>=1
  1136.           P%=Instr(Filename$,".")
  1137.           If P%=0
  1138.             Filename$=Filename$+".PI1"
  1139.           Else
  1140.             Filename$=Left$(Filename$,P%-1)
  1141.             Filename$=Filename$+".PI1"
  1142.           Endif
  1143.           A%=Xbios(2)-32
  1144.           P%=0
  1145.           Repeat
  1146.             Dpoke A%,Sa%(P%)
  1147.             Add A%,2
  1148.             Inc P%
  1149.           Until P%=16
  1150.           Bsave Filename$,Xbios(2)-34,32034
  1151.         Else
  1152.           Alert 1,"|PICTURES MUST HAVE A|  '.NEO' OR '.PI1'|     EXTENSION.",1,"OK",X
  1153.         Endif
  1154.       Endif
  1155.     Endif
  1156.   Endif
  1157.   Showm
  1158. Return
  1159. ' ------------------------------------------
  1160. Procedure Set_colors
  1161.   Local A%,P%
  1162.   A%=0
  1163.   P%=1
  1164.   Put 0,0,Top_black$
  1165.   Repeat
  1166.     Color P%
  1167.     Deffill P%,2,8
  1168.     Pbox A%,1,A%+10,11
  1169.     Add A%,18
  1170.     Inc P%
  1171.   Until P%=16
  1172.   Color 1
  1173.   Box 290,1,318,18
  1174.   Box 295,6,313,13
  1175.   Line 290,1,295,6
  1176.   Line 318,1,313,6
  1177.   Line 290,18,295,13
  1178.   Line 318,18,313,13
  1179.   Get 0,0,319,19,Top$
  1180. Return
  1181. ' ------------------------------------------------
  1182. Procedure Set_color_marker
  1183.   Local X%
  1184.   X%=Color_point%*18-18
  1185.   Color 0
  1186.   Line 0,15,280,15
  1187.   Box Old_marker%-1,0,Old_marker%+11,12
  1188.   Color 1
  1189.   Line X%-1,15,X%+11,15
  1190.   Box X%-1,0,X%+11,12
  1191.   Old_marker%=X%
  1192.   @Color_numbers
  1193. Return
  1194. ' -----------------------------------------------------
  1195. Procedure Set_color_point
  1196.   Color_point%=2
  1197.   Deffill 2,2,8
  1198. Return
  1199. ' -----------------------------------------------------
  1200. Procedure Set_rez
  1201.   Local P%,A%
  1202.   P%=0
  1203.   Repeat
  1204.     Palette(P%)=Xbios(7,W:P%,W:-1)
  1205.     Inc P%
  1206.   Until P%=16
  1207.   @Get_colors
  1208.   A%=Xbios(2)-124
  1209.   P%=0
  1210.   Repeat
  1211.     Sa%(P%)=Xbios(7,W:P%,W:-1)
  1212.     Dpoke A%,Sa%(P%)
  1213.     Sa%(P%)=Dpeek(A%)
  1214.     Oa%(P%)=Sa%(P%)
  1215.     Add A%,2
  1216.     Inc P%
  1217.   Until P%=16
  1218.   Get 0,0,319,19,Top_black$
  1219. Return
  1220. ' ------------------------------------------------------
  1221. Procedure Special_key
  1222.   X%=Asc(Right$(A$))
  1223.   If Asc(A$)=0
  1224.     If X%=98
  1225.       @Help
  1226.     Else
  1227.       If X%=97
  1228.         @Change_screen
  1229.         A$=Z$
  1230.         If A$="M"
  1231.           A$=Z2$
  1232.         Endif
  1233.       Else
  1234.         If X%=75              ! page back
  1235.           Alert 1,"|PAGING PICTURE WILL ABANDON | YOUR WORK ON THIS SCREEN.",1,"OK|CANCEL",Ab%
  1236.           If Ab%=1
  1237.             Dec Pcture%
  1238.             If Pcture%=0
  1239.               @Find_screen_number
  1240.             Endif
  1241.             @Auto_load
  1242.             If Answer%=1  !unsuccessful load
  1243.               Inc Pcture%
  1244.               A$=Z$
  1245.             Else
  1246.               A$="P"
  1247.               @Set_color_point
  1248.             Endif
  1249.           Else
  1250.             A$=Z$
  1251.           Endif
  1252.         Else
  1253.           If X%=77            !page forward
  1254.             Alert 1,"|PAGING PICTURE WILL ABANDON | YOUR WORK ON THIS SCREEN.",1,"OK|CANCEL",Ab%
  1255.             If Ab%=1
  1256.               Inc Pcture%
  1257.               @Auto_load
  1258.               If Answer%=1
  1259.                 Dec Pcture%
  1260.                 A$=Z$
  1261.               Else
  1262.                 A$="P"
  1263.                 @Set_color_point
  1264.               Endif
  1265.             Else
  1266.               A$=Z$
  1267.             Endif
  1268.           Endif
  1269.         Endif
  1270.       Endif
  1271.     Endif
  1272.   Endif
  1273.   Repeat                  !Clears multiple key press
  1274.   Until Inkey$=""
  1275. Return
  1276. ' -------------------------------------------
  1277. Procedure Title
  1278.   Local A%,P%,C$
  1279.   A%=0
  1280.   C$=Bootdrive$+":"+Oldpath$+"MENU.SCR"
  1281.   If Exist(C$)
  1282.     P%=0
  1283.     Repeat
  1284.       Setcolor P%,0
  1285.       Inc P%
  1286.     Until P%=16
  1287.     Bload C$,Xbios(2)-34
  1288.     Sget Mnu$
  1289.     @Make_help_screen
  1290.     C$=Bootdrive$+":"+Oldpath$+"TITLE.SCR"
  1291.     If Exist(C$)
  1292.       Bload C$,Xbios(2)-34
  1293.     Else
  1294.       @Early_exit
  1295.     Endif
  1296.     @Get_colors
  1297.     Restore Title_data
  1298.     Repeat
  1299.     Until Inkey$=""
  1300.     While C%<>-1
  1301.       Read C%,X%,Y%
  1302.       Deffill C%,2,8
  1303.       Fill X%,Y%
  1304.       Pause 5
  1305.       If Inkey$<>""
  1306.         A%=6999
  1307.       Endif
  1308.       Exit If Mousek<>0
  1309.       Exit If A%=6999
  1310.     Wend
  1311.     Showm
  1312.     Repeat
  1313.       Inc A%
  1314.       Exit If A%>=7000
  1315.       Exit If Inkey$<>""
  1316.     Until Mousek<>0
  1317.   Else
  1318.     @Early_exit
  1319.   Endif
  1320.   Deffill 1,2,8
  1321.   Pbox 0,20,319,199
  1322. Return
  1323. ' -----------------------------------------------------
  1324. Procedure Trap_error
  1325.   Local C$,X%
  1326.   X%=Err
  1327.   On Error Gosub Trap_error
  1328.   If X%=-33
  1329.     C$="|FILE NOT FOUND"
  1330.   Else
  1331.     C$="|ERROR #"+Str$(X%)
  1332.   Endif
  1333.   Alert 1,C$,1,"OK",X%
  1334.   Resume Trap_1
  1335. Return
  1336. ' --------------------------------------
  1337. Procedure Quit
  1338.   Alert 3,"| |DO YOU REALLY WANT TO QUIT?",1,"YES|NO",X
  1339.   If X=1
  1340.     P%=0
  1341.     Repeat
  1342.       Setcolor P%,Palette(P%)
  1343.       Inc P%
  1344.     Until P%=16
  1345.     Deftext 1,0,0,13
  1346.     Chdrive Old_drive%          !Reset Drive path
  1347.     Chdir Oldpath$
  1348.     End
  1349.   Endif
  1350.   A$="M"
  1351. Return
  1352. ' -----------------------------------------------
  1353. Color_place:
  1354. Data 0,0,1,15,2,1,3,2,4,4,5,6,6,3,7,5,8,7,9,8,10,9,11,10
  1355. Data 12,12,13,14,14,11,15,13
  1356. ' ---------------------------------------------
  1357. Help_screen_data:
  1358. Data P= PAINT A PICTURE
  1359. Data C= CHANGE ALL COLORS
  1360. Data D= DRAW FREEHAND LINES
  1361. Data R= DRAW RUBBERBAND LINES
  1362. Data E= ERASE PART OF A PICTURE
  1363. Data S= SAVE A PICTURE *
  1364. Data L= LOAD A PICTURE **
  1365. Data M= MAIN MENU
  1366. Data UNDO= UNDO LAST OPERATION
  1367. Data SPACE BAR= MAIN MENU,
  1368. Data USE 1 AND 3 TO ADJUST BLUE
  1369. Data USE 4 AND 6 TO ADJUST GREEN
  1370. Data USE 7 AND 9 TO ADJUST RED
  1371. Data USE 1 THRU 9 WHEN ERASING PICTURES
  1372. Data USE ⇦ AND ⇨ KEYS TO AUTO LOAD PICTURES
  1373. Data USE + AND - KEYS TO SET COLORS,
  1374. Data * USE 'NEO' OR 'PI1' EXTENSION
  1375. Data "** USE 'NEO','PI1', OR 'PC1' EXTENSION"
  1376. Data -1
  1377. ' -------------------------------------------
  1378. Opencross_data:
  1379. Data &0007,&0008,&0002,&0000,&0001
  1380. Data &0000,&07C0,&0440,&0440
  1381. Data &0440,&0440,&FC7E,&8002
  1382. Data &8002,&8002,&FC7E,&0440
  1383. Data &0440,&0440,&0440,&07C0
  1384. Data &0000,&0000,&0380,&0280
  1385. Data &0280,&0280,&0280,&7EFC
  1386. Data &4004,&7EFC,&0280,&0280
  1387. Data &0280,&0280,&0380,&0000
  1388. ' ------------------------------------------
  1389. Paintbrush_data:
  1390. Data &0000,&0000,&0001,&0000,&0001
  1391. Data &0000,&4000,&3000,&3C00
  1392. Data &1F00,&1F80,&0F60,&0E20
  1393. Data &0470,&0290,&0388,&00C4
  1394. Data &002A,&0015,&000A,&0004
  1395. Data &C000,&B000,&4C00,&4300
  1396. Data &2080,&2060,&1090,&11D0
  1397. Data &0B88,&0568,&0474,&033A
  1398. Data &00D5,&002A,&0015,&000A
  1399. ' --------------------------------------------
  1400. Pencil_data:
  1401. Data &0000,&0000,&0001,&0000,&0001
  1402. Data &0000,&7C00,&6600,&4900
  1403. Data &5480,&6240,&3120,&1890
  1404. Data &0C48,&062C,&0312,&01A6
  1405. Data &00CC,&0078,&0030,&0000
  1406. Data &FC00,&8200,&9900,&B680
  1407. Data &AB40,&9DA0,&4ED0,&2768
  1408. Data &13B4,&09D2,&04ED,&0259
  1409. Data &0132,&0084,&0048,&0030
  1410. ' ---------------------------------------------------
  1411. Pointfinger_data:
  1412. Data &0000,&0000,&0002,&0000,&0001
  1413. Data &3000,&4C00,&6200,&1980
  1414. Data &0C40,&32F8,&2904,&6624
  1415. Data &93C2,&CF42,&7C43,&2021
  1416. Data &1001,&0C41,&0380,&00C0
  1417. Data &0000,&3000,&1C00,&0600
  1418. Data &0380,&0D00,&16F8,&19D8
  1419. Data &6C3C,&30BC,&03BC,&1FDE
  1420. Data &0FFE,&03BE,&007F,&003F
  1421. ' -------------------------------------------------
  1422. Title_data:
  1423. Data 11,5,22
  1424. Data 4,143,21
  1425. Data 4,309,22
  1426. Data 3,27,75
  1427. Data 3,100,30
  1428. Data 3,215,75
  1429. Data 3,292,74
  1430. Data 5,72,49
  1431. Data 5,184,52
  1432. Data 5,306,96
  1433. Data 13,219,26
  1434. Data 14,231,22
  1435. Data 13,245,22
  1436. Data 14,259,22
  1437. Data 13,273,22
  1438. Data 14,287,22
  1439. Data 15,254,70
  1440. Data 11,10,131
  1441. Data 8,23,117
  1442. Data 13,31,124
  1443. Data 13,191,117
  1444. Data 8,207,110
  1445. Data 11,220,113
  1446. Data 13,2,141
  1447. Data 14,20,139
  1448. Data 13,43,133
  1449. Data 14,71,135
  1450. Data 13,98,129
  1451. Data 13,155,127
  1452. Data 14,176,126
  1453. Data 13,214,130
  1454. Data 14,271,154
  1455. Data 13,310,140
  1456. Data 6,77,93
  1457. Data 10,74,85
  1458. Data 6,79,75
  1459. Data 10,87,62
  1460. Data 6,94,46
  1461. Data 10,112,41
  1462. Data 6,129,42
  1463. Data 10,143,44
  1464. Data 6,158,51
  1465. Data 10,170,61
  1466. Data 6,176,72
  1467. Data 10,174,82
  1468. Data 9,122,53
  1469. Data 9,124,136
  1470. Data 8,85,81
  1471. Data 8,165,82
  1472. Data 7,85,89
  1473. Data 7,163,93
  1474. Data 12,109,73
  1475. Data 12,135,74
  1476. Data 4,109,83
  1477. Data 4,135,82
  1478. Data 7,119,100
  1479. Data 8,125,92
  1480. Data 8,126,115
  1481. Data 7,126,119
  1482. Data 5,104,143
  1483. Data 8,128,180
  1484. Data 8,128,193
  1485. Data 4,223,182
  1486. Data -1,-1,-1
  1487.